BBS in a Box 12/BBS in a box XII-1.iso/Files/Art/F/Food Stack 1 Sampler.sit/Food Stack 1 Sampler/background_4050.xml

Extensible Markup Language | 1994-03-07 | 9.7 KB | 269 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>4050</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4189.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3220.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>28</left>
            <top>302</top>
            <right>51</right>
            <bottom>324</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUp
visual effect dissolve slow
go to previous card
end mouseUp

</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>56</left>
            <top>302</top>
            <right>81</right>
            <bottom>324</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUp
visual effect dissolve slow
go to next card
end mouseUp

</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>118</top>
            <right>102</right>
            <bottom>215</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Clairvaux</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Keywords</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>35</left>
            <top>70</top>
            <right>75</right>
            <bottom>97</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>32670</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
show all cards
end mouseUp
</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>170</top>
            <right>104</right>
            <bottom>221</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>New York</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>HCCdNmbrOfHC</name>
        <script>function cardData
-- this handler stores the card data specified by the
-- user. DO NOT MOVE THE POSITION OF THIS HANDLER!
return "bkgnd"
end cardData

on newfield
-- create a new openCard handler when pasted
put word 1 of the long name of me into fieldType
if fieldType is "Bkgnd" then set sharedText of me to true
addStackScript fieldType
updateCardData fieldType
end newfield

on deleteField
removeScript
end deleteField

on removeScript
-- removes the openCard handler added on newField
put cardData() into fieldType
get script of fieldType
if line 1 of scriptBody(fieldType) is in it then
put offset(line 1 of scriptBody(fieldType),it) into startBlock
put startBlock + number of chars in scriptBody(fieldType) + ¬
the number of lines in scriptBody(fieldType) + 1 into endBlock
delete char startBlock to endBlock of it
set script of fieldType to it
end if
end removeScript

on mouseUp
-- rebuilds the openCard handler in the stack script if necessary
addStackScript cardData()
end mouseUp

on addStackScript fieldType
get script of fieldType
if "openCard" is in it then
if (fieldType && "field id" && id of me) is not in it then
put scriptBody(fieldType) & return after char ¬
(offSet("openCard",it) + 8) of it
set script of fieldType to it
end if
else
if it ≠ empty then
if last char of it = return then put return after it
else put return & return after it
end if
-- write the full handler
put "on openCard" & return & scriptBody(fieldType) & return & ¬
"pass openCard" & return & "end openCard" after it
set script of fieldType to it
end if
end addStackScript

function scriptBody fieldType
-- returns the body of the openCard handler
return "if there is a" && fieldType && "field id" && id of me & return & ¬
"then put" && quote & "Card" & quote && "&& the number of this card && " & ¬
quote & "of" & quote && "&& ¬" & return & "the number of cards into" && ¬
fieldType && "field id" && id of me
end scriptBody

on updateCardData fieldType
-- write range back to the data handler in this script
-- doesn't take effect until idle
get script of me
put quote & fieldType & quote into newData
put newData into char offset(quote,it) to (offSet("end",it) - 2) of it
set script of me to it
end updateCardData</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>1</left>
            <top>222</top>
            <right>101</right>
            <bottom>244</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find</name>
        <script>on mouseUp
DoMenu "Find..."
end mouseUp
</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>1</left>
            <top>249</top>
            <right>101</right>
            <bottom>271</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Clip it!</name>
        <script>on mouseUp
show MenuBar
choose select tool
drag from 105,10 to 503,332
doMenu "Copy Picture"
choose browse tool
end mouseUp
</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>2</left>
            <top>276</top>
            <right>102</right>
            <bottom>298</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Scrapbook</name>
        <script>on mouseUp
DoMenu "Scrapbook"
end mouseUp
</script>
    </part>
    <content>
        <layer>background</layer>
        <id>10</id>
        <text>Card 3 of 12</text>
    </content>
    <name></name>
    <script>on openCard
if there is a bkgnd field id 10
then put "Card" && the number of this card && "of" && ¬
the number of cards into bkgnd field id 10
pass openCard
end openCard</script>
</background>